library(dplyr)
library(ggplot2)
library(haven)

gender = sample(c('male','female','man','woman'),50,replace=TRUE)
age = round(rnorm(50,mean=40,sd=5),0)
height = round(rnorm(50,1.7,0.2),2)
weight = round(rnorm(50,65,3),2)
df = data.frame(gender=gender,age=age,height=height,weight=weight)
write_sav(df,"data/c1_exe_01.sav")
